00100		DIMENSION NA(40,20),LL(1),II(1000)
00200		COMMON LL,II
00300	1	TYPE 15
00400	15	FORMAT(' I FORGOT EVERYTHING.'/)
00500	 	J=0
00600	
00700	2 	J=J+1
00800	199	IC=0
00900		CALL DPYCLR
01000		IQ=0
01100		IB=0
01200		IA=0
01300		IT=0
01400		DO 101 I=1,J
01500	101	NA(5,I)=0
01600	3	TYPE 4
01700	4	FORMAT(' ASK ME SOMETHING, OR TELL ME ANYTHING!'/)
01800	
01900	5	IF(J.GT.19)GO TO 1
02000	 	ACCEPT 6,(NA(I,J),I=11,40)
02100	6	FORMAT(30A1)
02200	
02300		IF(NA(11,J).EQ.'-')GO TO 1
02400		IF(NA(11,J).EQ.' '.AND.IC)GO TO 22
02500		IF(NA(11,J).EQ.' ')GO TO 3
02600		IF(NA(11,J).EQ.'+')GO TO 95
02700		IF(NA(11,J).EQ.'/')GO TO 200
02800		IF(NA(11,J).EQ.':')GO TO 201
02900		IF(NA(11,J).NE.'*')GO TO 59
03000		IF(.NOT.IC)GO TO 3
03100	  	J=J-1
03200	  	IF(IB)GO TO 99
03300	  	IF(IT.OR.IA)GO TO 79
03400		GO TO 47
03500	59	DO 7 I=11,40
03600	7	IF(NA(I+1,J).EQ.' '.AND.NA(I+2,J).EQ.' ')GO TO 8
03700		NA(1,J)=40
03800		GO TO 9
03900	200	J=J-1
04000	   	DO 202 I=1,40
04100	202	NA(I,J)=0
04200		GO TO 199
04300	201	J=J-1
04400		DO 210 I=1,J
04500	210	NA(5,I)=0
04600	   	IA=0
04700		IB=0
04800		IF(IQ)GO TO 205
04900		GO TO 80
05000	8	NA(1,J)=I
05100	
05200	9	NA(2,J)=-1
05300		IF(NA(NA(1,J),J).EQ.'?')NA(2,J)=0
05400		NA(6,J)=0
05500		IF(NA(11,J).NE.'%')GO TO 124
05600		IF(NA(12,J).EQ.'@')GO TO 177
05700		NC=1
05800	   	CALL ISEE(NA(6,J))
05900	182	DO 125 I=11,NA(1,J)
06000	125	NA(I,J)=NA(I+NC,J)
06100		NA(1,J)=NA(1,J)-NC
06200	124	NA(3,J)=J
06300		NA(4,J)=0
06400		IF(IC)GO TO 44
06500		IF(NA(2,J))GO TO 2
06600	
06700		IC=-1
06800	
06900		DO 52 MB=J-1,1,-1
07000		DO 51 I=11,NA(1,J)
07100	  	IF(NA(I,J).NE.NA(I,MB))GO TO 52
07200	51	CONTINUE
07300	
07400		NA(3,J)=NA(3,MB)
07500		IQ=-1
07600	205	IT=-1
07700	   	MA=J
07800		IF(NA(4,MB).LT.1)GO TO 79
07900		I=NA(4,MB)
08000		GO TO 25
08100	79	MA=MA-1
08200		IF(MA.LT.1.AND.IT)GO TO 80
08300		IF(MA.LT.1)GO TO 40
08400	  	IF(NA(3,J).EQ.NA(3,MA).AND.NA(2,MA).AND..NOT.NA(5,MA))GO TO 34
08500		GO TO 79
08600	52	CONTINUE
08700	
08800	80	IT=0 
08900		NL=NA(1,J)-9
09000	18	M=J
09100	40	IA=0
09200	47	M=M-1
09300		IF(M.LT.1)GO TO 75
09400		IF(NA(2,M).AND.NA(5,M))GO TO 47
09500		IF(NA(1,M)-10.LT.NL)GO TO 47
09600		DO 72 I=NA(1,J)-1,11+NL,-1
09700		IF(NA(I,J).EQ.' ')GO TO 72
09800		DO 73 K=NA(1,M),11+NL,-1
09900		DO 74 L=0,NL
10000	  	IF(NA(I-L,J).NE.NA(K-L,M))GO TO 73
10100	74	CONTINUE
10200		NA(3,J)=NA(3,M)
10300		IF(.NOT.NA(2,M))GO TO 69
10400		I=M
10500		GO TO 25
10600	73	CONTINUE
10700	72	CONTINUE
10800		GO TO 47
10900	177	TYPE 178
11000	178	FORMAT(' TYPE 5 LETTER NAME OF PICTURE.'/' OR:<CR> FOR NO PIC.'/)
11100		NC=2
11200		ACCEPT 179,NA(6,J)
11300	179	FORMAT(A5)
11400		IF(NA(6,J).EQ.'     ')GO TO 181
11500		IF(LOOKD(NA(6,J)))GO TO 182
11600		GO TO 177
11700	181	NA(6,J)=0
11800		GO TO 182
11900	75	NL=NL-1
12000		IF(NL.LT.4)GO TO 99
12100		GO TO 18
12200	
12300	69	IA=-1
12400		MA=J
12500		IF(NA(4,M).LT.1.OR.NA(5,NA(4,M)))GO TO 79
12600		I=NA(4,M)
12700		GO TO 25
12800	
12900	34	I=MA
13000	25	NA(5,I)=-1
13100		CALL DPYCLR
13200	  	TYPE 26,(NA(K,I),K=11,NA(1,I))
13300	26	FORMAT(1X30A1)
13400		IF(NA(6,I).EQ.0)GO TO 128
13500		CALL DPYSET(1,II,1000)
13600		CALL IFILE(1,NA(6,I))
13700		READ(1)LL(1),(II(K),K=1,LL(1)+2)
13800		CALL ACCPOG(1)
13900		CALL DPYOUT(1)
14000	128	TYPE 29
14100	29	FORMAT(/' IF I''M RIGHT,TYPE: <CR> .'/' IF I''M WRONG,TYPE:'
14200		1' ''*'' ,AND I''LL TRY AGAIN.'/' OR JUST TYPE IN THE ANSWER.'/)
14300		GO TO 28
14400	
14500	99	TYPE 27
14600	27	FORMAT(' I DON''T KNOW THE ANSWER, SO TYPE IT IN.'/)
14700		IB=-1
14800	
14900	28	J=J+1
15000		GO TO 5
15100	
15200	22	J=J-1
15300		IF(IB)GO TO 99
15400		IF(.NOT.IQ)GO TO 2
15500		NA(4,MB)=M
15600		IF(IT.OR.IA)NA(4,MB)=MA
15700		GO TO 199
15800	
15900	44	IF(IQ)GO TO 93
16000		NA(3,J-1)=J
16100		GO TO 2
16200	
16300	93	NA(3,J)=NA(3,MB)
16400		NA(4,MB)=J-1
16500		DO 94 K=1,40
16600	94	NA(K,J-1)=NA(K,J)
16700		NA(6,J)=0
16800		GO TO 199
16900	
17000	95	TYPE 37,J,IC,IQ,IT,IA,IB,MB,MA,M,NL
17100	37	FORMAT(3X'J'3X'IC'2X'IQ'2X'IT'2X'IA'2X'IB'2X'MB'
17200		1,2X'MA'2X' M'2X'NL'/1X10I4/)
17300		TYPE 88
17400	88	FORMAT(2X'LEN'2X'!!'1X'LIKE'1X'L2'1X'ANS'1X'PIC')
17500		DO 96 L=1,J
17600	96	TYPE 36,(NA(K,L),K=1,40)
17700	36	FORMAT(1X5I4,1XA5,2X4I1,2X30A1)
17800		GO TO 5
17900		END